      SUBROUTINE OUTPT(XM,YM,FI,DFI,KODE,NFIX,NN,N_eq)

      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      INCLUDE 'param_dim.inc'


      INTEGER       FDAT,FDCC,FDEX,FRES,FROT
      COMMON /narq/ FDAT,FDCC,FDEX,FRES,FROT
      COMMON /incdata/ C0,CINC,NNINC,NUMPI,NUMPCI,NINCL,VARIA

      DIMENSION NNINC(ninc_max),CINC(ninc_max)
	integer NUMPI(ninc_max),NUMPCI(ninc_max)
      integer VARIA(ninc_max)
      DIMENSION PGLIM(nparg_max,3)


      DIMENSION XM(NX),YM(NX),FI(NX),DFI(NX)
      DIMENSION KODE(NX)

      ZERO= 0.0
C
C REORDENAR OS VETORES FI E DFI PARA COLOCAR TODOS OS VALORES DO PO-
C TENCIAL EM FI E TODOS OS VALORES DA DERIVADA EM DFI
C
      DO 5 I=1,NFIX
         IF(KODE(I).GT.0) THEN 
           CH=FI(I)
           FI(I)=DFI(I)
           DFI(I)=CH
         END IF
 5    CONTINUE

C     Copia os valores calculados do 
C     potencial nas interfaces para FI

         nna = nn
         nna0= nfix

      do iinc =1,nincl
         nni = nninc(iinc)
         
         do i=1,nni
            fi(nna0+i)= dfi(nna0+i)
            dfi(nna0+i)= dfi(nna+i)
        enddo

         nna = nna  + nni
         nna0= nna0 + nni
      enddo

      WRITE(FRES,100)
  100 FORMAT(' ',80('*')//1X,'RESULTADOS'//,
     *       5X,'NOS DO CONTORNO'//3X,'No',6x,'X',
     *       13X,'Y',9X,'POTENCIAL (u)',7X,'D(u)/Dn'/)

      DO 10 I=1,NN
         WRITE(FRES,200)I,XM(I),YM(I),FI(I),DFI(I)
  200    FORMAT(I5,2(5X,E10.4),2(5X,E12.5))
   10 CONTINUE


      WRITE(FRES,600)
  600 FORMAT(' ',80('*'))

      icaso=1

C     IMPRESSAO DOS RESULTADOS PARA A OTIMIZACAO
      
c      WRITE(FROT,*) (FI(IP_OT(icaso,I)),I=1,14)

      RETURN
      END

